home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1994 September
/
PSL Monthly Shareware CD-ROM (September 1994).ISO
/
dos
/
communic
/
vote291.exe
/
NEWBOOTH.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-12
|
3KB
|
187 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String TSTRING006(1)
String STRING007
;------------------------------------------------------------------------------
GetUser
FOpen 1, PPEPath() + "vote.CFG", 0, 0
FDefIn 1
FDGet TSTRING006(1)
TSTRING006(1) = RTrim(Left(TSTRING006(1), 29), " ")
FClose 1
INTEGER006 = TSTRING006(1)
INTEGER009 = 0
StartDisp 1
Color DefColor()
Cls
PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
PrintLn "@X10│··@X1EVoter++@X10···@X1CThese are Booths you have not voted on yet!@X10···@X1B(c)94 Bill Marcy@X10··@X19│@X0F"
PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
For INTEGER001 = 1 To INTEGER006
If (INTEGER001 <= 1) Gosub LABEL002
STRING001 = INTEGER001
STRING003 = ReadLine(PPEPath() + "VOTE" + STRING001 + ".QUE", 1)
INTEGER002 = 72 - Len(STRING003)
Gosub LABEL001
If ((INTEGER001 <= 9) && (STRING002 == "N")) Then
PrintLn "@X10│@X1C ", INTEGER001, "@X16) @X1B", STRING003 + Space(INTEGER002), "@X19│@X0F"
Dec INTEGER009
Endif
If ((INTEGER001 >= 10) && (STRING002 == "N")) Then
PrintLn "@X10│@X1C", INTEGER001, "@X16)@X1B ", STRING003 + Space(INTEGER002), "@X19│@X0F"
Dec INTEGER009
Endif
INTEGER009 = INTEGER009 + 1
If (INTEGER009 == S2I(TSTRING006(1), 10)) Then
PrintLn "@X10│···@X1AYou voted on everything, you should create a booth for everyone else!@X10····@X19│@X0F"
PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
End
Endif
Next
PrintLn "@X10└@X19────────────────────────────────────────────────────────────────────────────┘@X0F"
Print " @X09Would you like to @X0AVOTE@X09 on any of these @X06(@X0CY@X0E/@X0Cn@X06) "
STRING007 = ""
While (STRING007 == "") Do
Gosub LABEL003
STRING007 = Inkey()
Print " @X0A" + Chr(8), Upper(STRING007)
EndWhile
If (Upper(STRING007) == "Y") Then
Call PPEPath() + "vote.ppe"
Cls
End
Endif
:LABEL001
STRING004 = PPEPath() + "vote" + STRING001 + ".nam"
INTEGER003 = FileInf(STRING004, 4)
INTEGER004 = INTEGER003 / 50
If (INTEGER004 == 0) Then
STRING002 = "N"
Return
Endif
For INTEGER005 = 1 To INTEGER004
STRING005 = ReadLine(STRING004, INTEGER005)
If (U_Name() == Left(STRING005, Len(U_Name()))) Then
STRING002 = "Y"
Return
Endif
STRING002 = "N"
Next
Return
:LABEL002
PrintLn "@X10┌────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
Return
:LABEL003
Inc INTEGER007
For INTEGER008 = 1 To 45
Next
If (INTEGER007 >= 200) End
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 2 Cls
; 1 Color
; 14 Goto
; 22 Let
; 2 Print
; 9 PrintLn
; 12 If
; 1 FOpen
; 1 FClose
; 1 StartDisp
; 1 GetUser
; 3 Gosub
; 5 Return
; 1 Inc
; 2 Dec
; 1 Call
; 1 FDefIn
; 1 FDGet
;
;
; ■ Functions used :
;
; 1 /
; 15 +
; 1 -
; 7 ==
; 3 <
; 5 <=
; 8 >=
; 10 !
; 8 &&
; 3 ||
; 2 Len(
; 2 Upper()
; 2 Left()
; 2 Space()
; 1 Chr()
; 1 RTrim()
; 2 U_Name()
; 1 Inkey()
; 4 PPEPath()
; 2 ReadLine()
; 1 S2I()
; 1 DefColor()
; 1 FileInf()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 1 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------